/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / DEMOS / PHOTOROT / !PhotoRot_Codes_!PhotoRotF

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 07 eb 32 38 0d | 00 14 1c ee 20 85 20 f1 |.....28.|.... . .|
|00000010| 20 f6 24 3b 22 20 61 74 | 20 4c 69 6e 65 20 22 3b | .$;" at| Line ";|
|00000020| 9e 3a e0 0d 00 1e 04 0d | 00 28 08 f2 61 73 6d 0d |.:......|.(..asm.|
|00000030| 00 32 04 0d 00 3c 20 66 | 69 6c 65 25 3d 8e 28 22 |.2...< f|ile%=.("|
|00000040| 3c 46 72 61 63 24 44 69 | 72 3e 2e 53 70 72 69 74 |<Frac$Di|r>.Sprit|
|00000050| 65 22 29 0d 00 46 13 73 | 69 7a 65 25 3d a2 23 66 |e")..F.s|ize%=.#f|
|00000060| 69 6c 65 25 2b 34 0d 00 | 50 0b d9 23 66 69 6c 65 |ile%+4..|P..#file|
|00000070| 25 0d 00 5a 14 de 20 77 | 73 70 61 72 65 61 25 20 |%..Z.. w|sparea% |
|00000080| 73 69 7a 65 25 0d 00 64 | 13 21 77 73 70 61 72 65 |size%..d|.!wspare|
|00000090| 61 25 3d 73 69 7a 65 25 | 0d 00 6e 11 77 73 70 61 |a%=size%|..n.wspa|
|000000a0| 72 65 61 25 21 38 3d 31 | 36 0d 00 78 35 c8 99 22 |rea%!8=1|6..x5.."|
|000000b0| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 30 |OS_Sprit|eOp",&10|
|000000c0| 41 2c 77 73 70 61 72 65 | 61 25 2c 22 3c 46 72 61 |A,wspare|a%,"<Fra|
|000000d0| 63 24 44 69 72 3e 2e 53 | 70 72 69 74 65 22 0d 00 |c$Dir>.S|prite"..|
|000000e0| 82 17 67 72 61 66 69 6b | 25 3d 77 73 70 61 72 65 |..grafik|%=wspare|
|000000f0| 61 25 2b 36 30 0d 00 8c | 04 0d 00 96 05 db 0d 00 |a%+60...|........|
|00000100| a0 04 0d 00 aa 11 de 20 | 76 64 75 62 6c 6b 25 20 |....... |vdublk% |
|00000110| 32 35 35 0d 00 b4 1e 76 | 64 75 62 6c 6b 25 21 30 |255....v|dublk%!0|
|00000120| 3d 26 39 34 3a 76 64 75 | 62 6c 6b 25 21 34 3d 2d |=&94:vdu|blk%!4=-|
|00000130| 31 0d 00 be 2b c8 99 22 | 4f 53 5f 52 65 61 64 56 |1...+.."|OS_ReadV|
|00000140| 64 75 56 61 72 69 61 62 | 6c 65 73 22 2c 76 64 75 |duVariab|les",vdu|
|00000150| 62 6c 6b 25 2c 76 64 75 | 62 6c 6b 25 0d 00 c8 18 |blk%,vdu|blk%....|
|00000160| 73 63 73 74 61 72 74 25 | 3d 28 76 64 75 62 6c 6b |scstart%|=(vdublk|
|00000170| 25 21 30 29 0d 00 d2 04 | 0d 00 dc 21 f4 46 4f 52 |%!0)....|...!.FOR|
|00000180| 20 69 25 3d 30 20 54 4f | 20 36 34 30 2a 34 38 30 | i%=0 TO| 640*480|
|00000190| 2d 34 20 53 54 45 50 20 | 34 0d 00 e6 15 f4 20 20 |-4 STEP |4.....  |
|000001a0| 73 63 73 74 61 72 74 25 | 21 69 25 3d 2d 31 0d 00 |scstart%|!i%=-1..|
|000001b0| f0 0b f4 4e 45 58 54 69 | 25 0d 00 fa 04 0d 01 04 |...NEXTi|%.......|
|000001c0| 12 c8 97 20 6d 78 25 2c | 6d 79 25 2c 6d 62 25 0d |... mx%,|my%,mb%.|
|000001d0| 01 0e 0c 66 72 61 6d 65 | 25 3d 30 0d 01 18 0c 73 |...frame|%=0....s|
|000001e0| 74 61 72 74 25 3d 91 0d | 01 19 0a 61 6e 67 25 3d |tart%=..|...ang%=|
|000001f0| 30 0d 01 22 11 c8 95 20 | 28 6d 62 25 80 32 29 3c |0.."... |(mb%.2)<|
|00000200| 3e 32 0d 01 40 1a 20 20 | e7 20 61 6e 67 25 3d 36 |>2..@.  |. ang%=6|
|00000210| 32 38 20 8c 61 6e 67 25 | 3d 30 3a db 0d 01 4a 1d |28 .ang%|=0:...J.|
|00000220| 20 20 63 6f 73 3d 9b 28 | 61 6e 67 25 2f 32 30 29 |  cos=.(|ang%/20)|
|00000230| 2a 61 6e 67 25 2f 36 32 | 38 0d 01 54 1d 20 20 73 |*ang%/62|8..T.  s|
|00000240| 69 6e 3d b5 28 61 6e 67 | 25 2f 32 30 29 2a 61 6e |in=.(ang|%/20)*an|
|00000250| 67 25 2f 36 32 38 0d 01 | 5e 11 20 20 41 25 3d 73 |g%/628..|^.  A%=s|
|00000260| 63 73 74 61 72 74 25 0d | 01 68 10 20 20 42 25 3d |cstart%.|.h.  B%=|
|00000270| 67 72 61 66 69 6b 25 0d | 01 72 12 20 20 43 25 3d |grafik%.|.r.  C%=|
|00000280| 63 6f 73 2a 36 35 35 33 | 36 0d 01 7c 12 20 20 44 |cos*6553|6..|.  D|
|00000290| 25 3d 73 69 6e 2a 36 35 | 35 33 36 0d 01 86 0d 20 |%=sin*65|536.... |
|000002a0| 20 d6 20 63 6f 64 65 25 | 0d 01 90 0f 20 20 66 72 | . code%|....  fr|
|000002b0| 61 6d 65 25 2b 3d 31 0d | 01 9a 0d 20 20 61 6e 67 |ame%+=1.|...  ang|
|000002c0| 25 2b 3d 31 0d 01 a4 16 | 20 20 c8 97 20 6d 78 25 |%+=1....|  .. mx%|
|000002d0| 2c 6d 79 25 2c 6d 62 25 | 20 20 0d 01 ae 05 ce 0d |,my%,mb%|  ......|
|000002e0| 01 b8 04 0d 01 c2 11 74 | 69 6d 25 3d 91 2d 73 74 |.......t|im%=.-st|
|000002f0| 61 72 74 25 0d 01 cc 15 | e7 20 74 69 6d 25 3d 30 |art%....|. tim%=0|
|00000300| 20 8c 20 74 69 6d 25 3d | 31 0d 01 d6 34 f1 20 22 | . tim%=|1...4. "|
|00000310| 54 69 6d 65 20 74 61 6b | 65 6e 20 3a 20 22 3b 74 |Time tak|en : ";t|
|00000320| 69 6d 25 3b 22 20 66 6f | 72 20 22 3b 66 72 61 6d |im%;" fo|r ";fram|
|00000330| 65 25 3b 22 20 46 72 61 | 6d 65 73 20 22 0d 01 e0 |e%;" Fra|mes "...|
|00000340| 28 f1 20 22 20 46 72 61 | 6d 65 73 20 70 65 72 20 |(. " Fra|mes per |
|00000350| 53 65 63 3a 20 22 66 72 | 61 6d 65 25 2a 31 30 30 |Sec: "fr|ame%*100|
|00000360| 2f 74 69 6d 25 0d 01 ea | 04 0d 01 f4 05 e0 0d 01 |/tim%...|........|
|00000370| fe 04 0d 02 08 09 dd f2 | 61 73 6d 0d 02 12 12 20 |........|asm.... |
|00000380| 20 de 20 63 6f 64 65 25 | 20 31 30 32 34 0d 02 1c | . code%| 1024...|
|00000390| 13 20 20 e3 20 70 61 73 | 73 25 3d 30 b8 32 88 32 |.  . pas|s%=0.2.2|
|000003a0| 0d 02 26 0e 20 20 50 25 | 3d 63 6f 64 65 25 0d 02 |..&.  P%|=code%..|
|000003b0| 30 07 20 20 5b 0d 02 3a | 0f 20 20 4f 50 54 20 70 |0.  [..:|.  OPT p|
|000003c0| 61 73 73 25 0d 02 44 12 | 20 20 6d 6f 76 20 72 31 |ass%..D.|  mov r1|
|000003d0| 32 2c 23 36 34 30 0d 02 | 4e 10 20 20 6d 6f 76 20 |2,#640..|N.  mov |
|000003e0| 72 35 2c 23 30 30 0d 02 | 58 0c 20 20 2e 6c 6f 6f |r5,#00..|X.  .loo|
|000003f0| 70 69 0d 02 62 10 20 20 | 6d 6f 76 20 72 34 2c 23 |pi..b.  |mov r4,#|
|00000400| 30 30 0d 02 6c 0c 20 20 | 2e 6c 6f 6f 70 6a 0d 02 |00..l.  |.loopj..|
|00000410| 76 14 20 20 73 75 62 20 | 72 36 2c 72 34 2c 23 32 |v.  sub |r6,r4,#2|
|00000420| 35 36 0d 02 80 14 20 20 | 73 75 62 20 72 37 2c 72 |56....  |sub r7,r|
|00000430| 35 2c 23 32 35 36 0d 02 | 8a 12 20 20 6d 75 6c 20 |5,#256..|..  mul |
|00000440| 72 38 2c 72 36 2c 72 32 | 0d 02 94 12 20 20 6d 75 |r8,r6,r2|....  mu|
|00000450| 6c 20 72 39 2c 72 37 2c | 72 33 0d 02 9e 12 20 20 |l r9,r7,|r3....  |
|00000460| 6d 6f 76 20 72 31 30 2c | 23 33 32 30 0d 02 a8 1b |mov r10,|#320....|
|00000470| 20 20 61 64 64 20 72 31 | 30 2c 72 31 30 2c 72 38 |  add r1|0,r10,r8|
|00000480| 2c 41 53 52 23 31 36 0d | 02 b2 1b 20 20 73 75 62 |,ASR#16.|...  sub|
|00000490| 20 72 31 30 2c 72 31 30 | 2c 72 39 2c 41 53 52 23 | r10,r10|,r9,ASR#|
|000004a0| 31 36 0d 02 bc 12 20 20 | 6d 75 6c 20 72 38 2c 72 |16....  |mul r8,r|
|000004b0| 36 2c 72 33 0d 02 c6 12 | 20 20 6d 75 6c 20 72 39 |6,r3....|  mul r9|
|000004c0| 2c 72 37 2c 72 32 0d 02 | d0 12 20 20 6d 6f 76 20 |,r7,r2..|..  mov |
|000004d0| 72 31 31 2c 23 32 34 30 | 0d 02 da 1b 20 20 61 64 |r11,#240|....  ad|
|000004e0| 64 20 72 31 31 2c 72 31 | 31 2c 72 38 2c 41 53 52 |d r11,r1|1,r8,ASR|
|000004f0| 23 31 36 0d 02 e4 1b 20 | 20 61 64 64 20 72 31 31 |#16.... | add r11|
|00000500| 2c 72 31 31 2c 72 39 2c | 41 53 52 23 31 36 0d 02 |,r11,r9,|ASR#16..|
|00000510| ee 11 20 20 63 6d 70 20 | 72 31 31 2c 23 30 30 0d |..  cmp |r11,#00.|
|00000520| 02 f8 0e 20 20 62 6c 74 | 20 63 6f 6e 74 0d 03 02 |...  blt| cont...|
|00000530| 12 20 20 63 6d 70 20 72 | 31 31 2c 23 34 38 30 0d |.  cmp r|11,#480.|
|00000540| 03 0c 0e 20 20 62 67 65 | 20 63 6f 6e 74 0d 03 16 |...  bge| cont...|
|00000550| 1a 20 20 6d 6c 61 20 72 | 31 30 2c 72 31 31 2c 72 |.  mla r|10,r11,r|
|00000560| 31 32 2c 72 31 30 20 0d | 03 20 19 20 20 61 64 64 |12,r10 .|. .  add|
|00000570| 20 72 31 31 2c 72 34 2c | 72 35 2c 6c 73 6c 23 39 | r11,r4,|r5,lsl#9|
|00000580| 0d 03 2a 16 20 20 6c 64 | 72 62 20 72 38 2c 5b 72 |..*.  ld|rb r8,[r|
|00000590| 31 2c 72 31 31 5d 0d 03 | 34 16 20 20 73 74 72 62 |1,r11]..|4.  strb|
|000005a0| 20 72 38 2c 5b 72 30 2c | 72 31 30 5d 0d 03 3e 0b | r8,[r0,|r10]..>.|
|000005b0| 20 20 2e 63 6f 6e 74 0d | 03 48 13 20 20 61 64 64 |  .cont.|.H.  add|
|000005c0| 20 72 34 2c 72 34 2c 23 | 30 31 0d 03 52 11 20 20 | r4,r4,#|01..R.  |
|000005d0| 63 6d 70 20 72 34 2c 23 | 35 31 32 0d 03 5c 0f 20 |cmp r4,#|512..\. |
|000005e0| 20 62 6c 74 20 6c 6f 6f | 70 6a 0d 03 66 13 20 20 | blt loo|pj..f.  |
|000005f0| 61 64 64 20 72 35 2c 72 | 35 2c 23 30 31 0d 03 70 |add r5,r|5,#01..p|
|00000600| 11 20 20 63 6d 70 20 72 | 35 2c 23 35 31 32 0d 03 |.  cmp r|5,#512..|
|00000610| 7a 0f 20 20 62 6c 74 20 | 6c 6f 6f 70 69 0d 03 84 |z.  blt |loopi...|
|00000620| 10 20 20 6d 6f 76 20 70 | 63 2c 72 31 34 0d 03 8e |.  mov p|c,r14...|
|00000630| 07 20 20 5d 0d 03 98 0d | 20 20 ed 20 70 61 73 73 |.  ]....|  . pass|
|00000640| 25 0d 03 a2 05 e1 0d 03 | ac 04 0d 03 b6 15 f4 46 |%.......|.......F|
|00000650| 4f 52 20 61 6e 67 25 3d | 30 20 54 4f 20 36 33 0d |OR ang%=|0 TO 63.|
|00000660| 03 c0 17 f4 20 20 63 6f | 73 3d 43 4f 53 28 61 6e |....  co|s=COS(an|
|00000670| 67 25 2f 31 30 29 0d 03 | ca 15 f4 20 20 73 69 6e |g%/10)..|...  sin|
|00000680| 3d b5 28 61 6e 67 25 2f | 31 30 29 0d 03 d4 16 f4 |=.(ang%/|10).....|
|00000690| 20 20 46 4f 52 20 69 25 | 3d 30 20 54 4f 20 33 39 |  FOR i%|=0 TO 39|
|000006a0| 39 0d 03 de 18 f4 20 20 | 20 20 46 4f 52 20 6a 25 |9.....  |  FOR j%|
|000006b0| 3d 30 20 54 4f 20 32 39 | 39 0d 03 e8 2c f4 20 20 |=0 TO 29|9...,.  |
|000006c0| 20 20 20 20 69 73 25 3d | 63 6f 73 2a 28 69 25 2d |    is%=|cos*(i%-|
|000006d0| 32 30 30 29 2d 73 69 6e | 2a 28 6a 25 2d 31 35 30 |200)-sin|*(j%-150|
|000006e0| 29 2b 34 30 30 0d 03 f2 | 2c f4 20 20 20 20 20 20 |)+400...|,.      |
|000006f0| 6a 73 25 3d 73 69 6e 2a | 28 69 25 2d 32 30 30 29 |js%=sin*|(i%-200)|
|00000700| 2b 63 6f 73 2a 28 6a 25 | 2d 31 35 30 29 2b 33 30 |+cos*(j%|-150)+30|
|00000710| 30 0d 03 fc 35 f4 20 20 | 20 20 20 20 73 63 73 74 |0...5.  |    scst|
|00000720| 61 72 74 25 3f 28 69 73 | 25 2b 38 30 30 2a 6a 73 |art%?(is|%+800*js|
|00000730| 25 29 3d 67 72 61 66 69 | 6b 25 3f 28 69 25 2b 34 |%)=grafi|k%?(i%+4|
|00000740| 30 30 2a 6a 25 29 0d 04 | 06 0f f4 20 20 20 20 4e |00*j%)..|...    N|
|00000750| 45 58 54 6a 25 0d 04 10 | 0f f4 20 20 4e 45 58 54 |EXTj%...|..  NEXT|
|00000760| 69 25 20 20 0d 04 1a 0d | f4 4e 45 58 54 61 6e 67 |i%  ....|.NEXTang|
|00000770| 25 0d 04 24 04 0d ff    |                         |%..$... |        |
+--------+-------------------------+-------------------------+--------+--------+